home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / product.arc / MACRO25.LSP < prev    next >
Text File  |  1986-11-06  |  1KB  |  34 lines
  1. ;Version 2.5 only 
  2. (Defun C:Raa () 
  3.        (Setvar "CMDECHO" 0) 
  4.        (Setq A (Getvar "Snapang")) 
  5.        (Setq B (Getvar "Orthomode")) 
  6.        (Setq C (Getvar "Gridmode")) 
  7.        (Setq P1 (Getpoint "\nFrom point: ")) 
  8.        (Setq P2 (Getpoint P1 "\nTo point: ")) 
  9.        (Command "Line" P1 P2 "") 
  10.        (Setvar "Snapang" (Angle P1 P2)) 
  11.        (Setvar "Orthomode" 1) 
  12.        (Setq P3 (Getpoint P2 "To point: ")) 
  13.        (Setq P4 (Polar P3 (Angle P2 P1) 
  14.                           (Distance P2 P1) 
  15.                 ) 
  16.        ) 
  17.        (Command "Line" P2 P3 P4 P1 "") 
  18.        (Setvar "Snapang" A) 
  19.        (Setvar "Orthomode" B) 
  20.        (Setvar "Gridmode" C) 
  21. ) 
  22. (Defun C:Paa () 
  23.        (Setvar "CMDECHO" 0) 
  24.        (Setq P1 (Getpoint "\nFrom point: ")) 
  25.        (Setq P2 (Getpoint P1 "\nTo point: ")) 
  26.        (Command "Line" P1 P2 "") 
  27.        (Setq P3 (Getpoint P2 "To point: ")) 
  28.        (Setq P4 (Polar P3 (Angle P2 P1) 
  29.                           (Distance P2 P1) 
  30.                 ) 
  31.        ) 
  32.        (Command "Line" P2 P3 P4 P1 "") 
  33. ) 
  34.